home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / floppy.vmsfor < prev    next >
Text File  |  1992-07-31  |  14KB  |  448 lines
  1.       PROGRAM FLOPPY
  2. C-------------------------------------------------------------------------
  3. C Floppy VAX VMS interface routine.
  4. C Sets up various required input files for Floppy.
  5. C 
  6. C Julian Bunn 1987
  7. C-------------------------------------------------------------------------
  8.       PARAMETER (MLEN=256,MXLIN=80)
  9.       INTEGER*4 STATUS,CLI$GET_VALUE,CLI$PRESENT
  10.       INTEGER*4 LIB$FIND_FILE,LIB$FIND_FILE_END
  11.       INCLUDE '($SSDEF)'
  12.       INCLUDE '($RMSDEF)'
  13.       INCLUDE '($LBRDEF)'
  14.       EXTERNAL CLI$_PRESENT,CLI$_DEFAULTED,CLI$_ABSENT,CLI$_NEGATED
  15.       CHARACTER*(MXLIN) CIN,CINS,CIN2,CARD
  16.       CHARACTER*(MLEN)  CFILE,CIFOR,CSCRT,CIGNO,CFORT,CFLOP,CTREE,CTEMP
  17.       CHARACTER*(MXLIN) CTEMPL
  18.       CHARACTER*(MLEN) CFORAN
  19.       LOGICAL LOG
  20.       CHARACTER*(MLEN) CMMND
  21. C
  22. C Log this use of FLOPPY using UMON
  23. C
  24.       STATUS = LIB$GET_FOREIGN(CFORAN,,,)
  25.       LFORAN = MIN(MXLIN,LENOCC(CFORAN))
  26.       CALL UMLOG('FLOPPY',CFORAN(:LFORAN))
  27. C
  28.       LOG = .FALSE.
  29. C
  30. C LOG
  31. C
  32.       STATUS = CLI$PRESENT('LOG')
  33.       IF(STATUS.EQ.%LOC(CLI$_PRESENT).OR.
  34.      &   STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  35.         LOG = .TRUE.
  36.       ENDIF
  37. C
  38. C INPUT FORTRAN
  39. C
  40.       STATUS = CLI$GET_VALUE('P1',CIN)
  41.       IF(.NOT.STATUS) CALL LIB$SIGNAL(%VAL(STATUS))
  42.       IB = INDEX(CIN,']')
  43.       IF(IB.EQ.0) THEN 
  44.         IP = INDEX(CIN,'.')
  45.       ELSE
  46.         IP = INDEX(CIN(IB:),'.')
  47.       ENDIF
  48.       IF(IP.EQ.0) CIN = CIN(:LENOCC(CIN))//'.FOR'
  49.       IF(LOG) WRITE(6,'(2A)') ' Floppy --> Input Fortran  :',
  50.      &                         CIN(:LENOCC(CIN))
  51. C
  52. C EXTRACT STEM NAME
  53. C
  54.       NFILE = 0
  55.    88 CONTINUE   
  56.       STATUS = LIB$FIND_FILE(CIN,CTEMP,I)
  57.       IF(.NOT.STATUS.AND.NFILE.EQ.0) THEN
  58.         IF(LOG)WRITE(6,'(3A)') ' File ',CIN(:LENOCC(CIN)),' absent !'
  59.         CALL LIB$SIGNAL(%VAL(STATUS))
  60.         GOTO 1000
  61.       ENDIF
  62.       IF(.NOT.STATUS) GOTO 99
  63.       NFILE = NFILE + 1
  64.       IF(NFILE.EQ.1) THEN
  65.         CIFOR = CTEMP
  66.         IPOSE = INDEX(CTEMP,']')
  67.         IPOSD = INDEX(CTEMP(IPOSE:MLEN),'.')
  68.         IF(IPOSE.EQ.0.OR.IPOSD.EQ.0) GOTO 998
  69.         CFILE = CTEMP(IPOSE+1:IPOSE+IPOSD-2)
  70.         LEN   = IPOSD-2
  71.       ELSE IF(NFILE.EQ.2) THEN
  72.         OPEN(11,FILE='FLOPTEMP.FOR',STATUS='SCRATCH',ERR=999)
  73.         OPEN(66,FILE=CIFOR(:LENOCC(CIFOR)),STATUS='OLD',READONLY)
  74.    77   READ(66,'(A)',END=76,ERR=76) CARD
  75.         WRITE(11,'(A)') CARD
  76.         GOTO 77
  77.    76   CLOSE(66)
  78.       ELSE
  79.         OPEN(66,FILE=CTEMP(:LENOCC(CTEMP)),STATUS='OLD',READONLY)
  80.    75   READ(66,'(A)',END=74,ERR=74) CARD
  81.         WRITE(11,'(A)') CARD
  82.         GOTO 75
  83.    74   CLOSE(66)
  84.       ENDIF
  85.       GOTO 88
  86.    99 STATUS = LIB$FIND_FILE_END(I)
  87.       IF(NFILE.GT.1) REWIND(11)
  88.       IF(LOG)WRITE(6,'(A,I2,A)') ' Floppy --> ',NFILE,
  89.      &       ' file(s) of input FORTRAN'
  90. C
  91. C OPEN FLOP INPUT FILE
  92. C
  93.       CSCRT = CFILE(:LEN)//'.FLOPINP'
  94.       OPEN(5,FILE=CSCRT(:LEN+8),ACCESS='SEQUENTIAL',
  95.      &     CARRIAGECONTROL='LIST',STATUS='SCRATCH',ERR=999)
  96. C
  97. C WRITE USUAL FLOP INPUT CARDS
  98. C
  99.       WRITE(5,'(A)') 'LIST,GLOBAL,TYPE;'
  100.       WRITE(5,'(A)') 'PRINT,ILLEGAL;'
  101.       WRITE(5,'(A)') 'OPTIONS,USER;'
  102. C
  103. C IGNORE FILE
  104. C
  105.       IOLD = 0
  106.       CIGNO = CFILE(:LEN)//'.FLOPIGN'
  107.       STATUS = CLI$PRESENT('OLD')
  108.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  109.         STATUS = CLI$GET_VALUE('OLD',CIN)
  110.         IF(.NOT.STATUS) THEN
  111.           CIN = CIGNO
  112.         ENDIF
  113.         IOLD = 1
  114.       ENDIF
  115.       STATUS = LIB$FIND_FILE(CIN,CTEMP,I)
  116.       IF(.NOT.STATUS.AND.IOLD.EQ.1) THEN
  117.       IF(LOG)WRITE(6,'(3A)') ' File ',CIN(:LENOCC(CIN)),' absent !'
  118.         CALL LIB$SIGNAL(%VAL(STATUS))
  119.         GOTO 999
  120.       ENDIF
  121.       STATUS = LIB$FIND_FILE_END(I)
  122.       IOPIG = 0
  123.       IF(IOLD.EQ.1) THEN
  124. C 
  125. C COPY OLD IGNORE FILE INTO BUFFER
  126. C
  127.         ICHK = 0
  128.         OPEN(94,FILE=CIN,READONLY,STATUS='OLD')
  129.         REWIND(94)
  130.         OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  131.      &       STATUS='SCRATCH',ERR=999)
  132.         IOPIG = 1
  133.    10   READ(94,'(A)',ERR=20,END=20) CARD
  134.         WRITE(15,'(A)') CARD
  135.         IF(INDEX(CARD,'CHECK RULE').NE.0) ICHK = 1
  136.         GOTO 10
  137.    20   CONTINUE
  138.         CLOSE(94)
  139.         CIGNO = CIN
  140.       ENDIF
  141.       LIGNO = LENOCC(CIGNO)
  142.       IF(LOG)WRITE(6,'(A,A)')
  143.      &' Floppy --> Ignore File    :',CIGNO(:LIGNO)
  144. C
  145. C FLOPPY OUTPUT
  146. C
  147.       CFLOP = ' '
  148.       STATUS = CLI$PRESENT('OUTPUT')
  149.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  150.         CFLOP = CFILE(:LEN)//'.FLOPOUT'
  151.         STATUS = CLI$GET_VALUE('OUTPUT',CIN)
  152.         IF(STATUS) CFLOP = CIN
  153.         IF(LOG)WRITE(6,'(A,A)') ' Floppy --> Output Listing :',
  154.      &                   CFLOP(:LENOCC(CFLOP))
  155.       ENDIF
  156. C
  157. C SOURCE FILE NUMBERS
  158. C
  159.       STATUS = CLI$PRESENT('FULL')
  160.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  161.         IF(LOG)WRITE(6,'(A,A)')
  162.      &  ' Floppy --> List source code line numbers'
  163.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  164.      &                 STATUS='NEW',ERR=999)
  165.         IOPIG = 1
  166.         WRITE(15,'(A)') '*FULL'
  167.       ENDIF
  168. C
  169. C IGNORABLE NAMES
  170. C
  171.       STATUS = CLI$PRESENT('IGNORE')
  172.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  173.         IF(LOG)WRITE(6,'(A,A)') ' Floppy --> Ignore following names'
  174.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  175.      &                 STATUS='NEW',ERR=999)
  176.         IOPIG = 1
  177.         NVALU = 0
  178.    50   STATUS = CLI$GET_VALUE('IGNORE',CIN)
  179.         IF(STATUS.NE.%LOC(CLI$_ABSENT)) THEN
  180.           WRITE(15,'(A)') CIN(:LENOCC(CIN))
  181.           NVALU = NVALU+1
  182.           IF(LOG)WRITE(6,'(A,I3,A,A)')
  183.      &    ' Floppy --> Ignore name',NVALU,' = ',CIN(:LENOCC(CIN))
  184.           GOTO 50
  185.         ENDIF
  186.       ENDIF
  187. C
  188. C RULE CHECKING
  189. C
  190.       STATUS = CLI$PRESENT('CHECKS')
  191.       IF(STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  192.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  193.      &                 STATUS='NEW',ERR=999)
  194.         IOPIG = 1
  195.         IF(ICHK.EQ.0) THEN 
  196.            WRITE(15,'(A)') '*CHECK RULE *'
  197.            IF(LOG) WRITE(6,'(A)') 
  198.      &     ' Floppy --> Check standard set of rules'
  199.         ELSE
  200.            IF(LOG) WRITE(6,'(A,A)') ' Floppy --> Check rules ',
  201.      &                              'specified in OLD file'
  202.         ENDIF
  203.       ELSE IF(STATUS.EQ.%LOC(CLI$_NEGATED)) THEN
  204.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  205.      &                 STATUS='NEW',ERR=999)
  206.         IOPIG = 1
  207.         WRITE(15,'(A)') '*CHECK RULE -99'
  208.         IF(LOG) WRITE(6,'(A)') ' Floppy --> No rule checking'
  209.       ELSE IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  210.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  211.      &                 STATUS='NEW',ERR=999)
  212.         IOPIG = 1
  213.         CTEMPL(:MXLIN) = ' '
  214.         NRULE = 0
  215.    30   STATUS = CLI$GET_VALUE('CHECKS',CIN)
  216.         IF(STATUS.NE.%LOC(CLI$_ABSENT)) THEN
  217.           IF(LENOCC(CIN).EQ.1) CIN(:2) = ' '//CIN(:1)
  218.           IF(INDEX(CIN,'-').EQ.0.OR.LENOCC(CIN).EQ.2) THEN
  219.              WRITE(15,'(A,A)') '*CHECK RULE  ',CIN
  220.           ELSE
  221.              WRITE(15,'(A,A)') '*CHECK RULE ',CIN
  222.           ENDIF 
  223.           IF(CTEMPL.NE.' ') THEN
  224.              CTEMPL = CTEMPL(:LENOCC(CTEMPL))//','//CIN(:LENOCC(CIN))
  225.           ELSE
  226.              CTEMPL = CIN(:LENOCC(CIN))
  227.           ENDIF 
  228.           NRULE = NRULE + 1
  229.           IF(LENOCC(CTEMPL).GT.MXLIN-20) THEN
  230.             IF(LOG) WRITE(6,'(A,I2,A)') ' Floppy --> Check ',NRULE,
  231.      &              ' rules :'//CTEMPL(:LENOCC(CTEMPL))
  232.             CTEMPL(:MXLIN) = ' '
  233.           ENDIF
  234.           GOTO 30
  235.         ENDIF
  236.         IF(LOG.AND.LENOCC(CTEMPL).GT.0) 
  237.      &          WRITE(6,'(A,I2,A)')' Floppy --> Check ',NRULE,          
  238.      &          ' rules :'//CTEMPL(:LENOCC(CTEMPL))
  239.       ENDIF
  240. C
  241. C TREE PROGRAM
  242. C
  243.       STATUS = CLI$PRESENT('TREE')
  244.       CTREE = ' '
  245.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  246.         WRITE(5,'(A)') 'OPTIONS,TREE;'
  247.         CTREE = CFILE(:LEN)//'.FLOPTRE'
  248.         IF(LOG)WRITE(6,'(A,A)')
  249.      &  ' Floppy --> Tree output    : ',CTREE(:LENOCC(CTREE))
  250.       ENDIF
  251. C
  252. C SPECIAL PROCESSING
  253. C
  254.       STATUS = CLI$PRESENT('SPECIAL')
  255.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  256.         STATUS= CLI$GET_VALUE('SPECIAL',CIN)
  257.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  258.      &                 STATUS='NEW',ERR=999)
  259.         IOPIG = 1
  260.         WRITE(15,'(A)') '*'//CIN(:20)
  261.         IF(LOG)WRITE(6,'(A,A)')
  262.      &   ' Floppy --> Invoke special process for  :',
  263.      &                   CIN(:LENOCC(CIN))
  264.       ELSE IF(STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  265.         IF(IOPIG.EQ.0) OPEN(15,FILE=CIGNO(:LIGNO),ACCESS='SEQUENTIAL',
  266.      &                 STATUS='NEW',ERR=999)
  267.         IOPIG = 1
  268.         WRITE(15,'(A)') '*CHECK RULE *'
  269.         IF(LOG)WRITE(6,'(A)')
  270.      &   ' Floppy --> Check standard set of rules'          
  271.       ENDIF
  272. C
  273. C TIDY OPTION
  274. C
  275.       ITIDY = 0
  276.       STATUS = CLI$PRESENT('TIDY')
  277.       IF(STATUS.NE.%LOC(CLI$_PRESENT)) GOTO 100
  278.       ITIDY = 1
  279.       IF(LOG)WRITE(6,'(A,A)')   ' Floppy --> FLOP options to tidy code '
  280. C
  281. C OUTPUT FORTRAN
  282. C
  283.       CFORT = CFILE(:LEN)//'.FLOPFOR'
  284.       STATUS = CLI$PRESENT('FORTRAN')
  285.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  286.         STATUS = CLI$GET_VALUE('FORTRAN',CIN)
  287.         IF(STATUS) CFORT = CIN
  288.       ENDIF
  289.       WRITE(5,'(A)') 'OUTPUT,FULL,COMPRESS;'
  290.       IF(LOG)WRITE(6,'(A,A)') ' Floppy --> Output Fortran :',
  291.      &                 CFORT(:LENOCC(CFORT))
  292. C
  293. C INDENT OPTION
  294. C
  295.       STATUS = CLI$PRESENT('INDENT')
  296.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  297.         STATUS = CLI$GET_VALUE('INDENT',CIN)
  298.         IF(LOG)WRITE(6,'(A,A)')
  299.      &  ' Floppy --> Indent by ',CIN(:LENOCC(CIN))
  300.         WRITE(5,'(A)') 'OPTIONS,INDENT='//CIN(:LENOCC(CIN))//';'
  301.       ENDIF
  302. C
  303. C GROUPF
  304. C
  305.       STATUS = CLI$PRESENT('GROUPF')
  306.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  307.         IF(LOG)WRITE(6,'(A)')
  308.      &  ' Floppy --> Group FORMAT at end of module'
  309.         WRITE(5,'(A)') 'STATEMENTS,SEPARATE;'
  310.       ENDIF
  311. C
  312. C GOTOS
  313. C
  314.       STATUS = CLI$PRESENT('GOTOS')
  315.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  316.         IF(LOG)WRITE(6,'(A)') ' Floppy --> Shift GOTOs to the right'
  317.         WRITE(5,'(A)') 'STATEMENTS,GOTO;'
  318.       ENDIF
  319. C
  320. C RENUMBER FORMATS
  321. C
  322.       STATUS = CLI$PRESENT('FORMAT')
  323.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  324.         STATUS = CLI$PRESENT('FORMAT.START')
  325.         CINS = '500'
  326.         IF(STATUS.EQ.%LOC(CLI$_PRESENT).OR.
  327.      &     STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  328.           STATUS = CLI$GET_VALUE('FORMAT.START',CIN)
  329.           IF(LOG)WRITE(6,'(A,A)')
  330.      &    ' Floppy --> Renumber FORMAT, start at ',
  331.      &                      CIN(:LENOCC(CIN))
  332.           CINS = CIN
  333.         ENDIF
  334.         STATUS = CLI$PRESENT('FORMAT.STEP')
  335.         CIN2 = '10'
  336.         IF(STATUS.EQ.%LOC(CLI$_PRESENT).OR.
  337.      &     STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  338.           STATUS = CLI$GET_VALUE('FORMAT.STEP',CIN)
  339.           IF(LOG)WRITE(6,'(A,A)')
  340.      &    ' Floppy --> Renumber FORMAT, step by ',
  341.      &                     CIN(:LENOCC(CIN))
  342.           CIN2 = CIN
  343.         ENDIF
  344.         WRITE(5,'(A,A)') 'STATEMENTS,FORMAT='//CINS(:LENOCC(CINS))//','
  345.      &                  ,CIN2(:LENOCC(CIN2))//';'
  346.       ENDIF
  347. C
  348. C RENUMBER STATEMENTS
  349. C
  350.       STATUS = CLI$PRESENT('STMNTS')
  351.       IF(STATUS.EQ.%LOC(CLI$_PRESENT)) THEN
  352.         STATUS = CLI$PRESENT('STMNTS.START')
  353.         CINS = '10'
  354.         IF(STATUS.EQ.%LOC(CLI$_PRESENT).OR.
  355.      &     STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  356.           STATUS = CLI$GET_VALUE('STMNTS.START',CIN)
  357.           IF(LOG)WRITE(6,'(A,A)')
  358.      &    ' Floppy --> Renumber STATEMENTS, start at',
  359.      &                     CIN(:LENOCC(CIN))
  360.           CINS = CIN
  361.         ENDIF
  362.         STATUS = CLI$PRESENT('STMNTS.STEP')
  363.         CIN2 = '10'
  364.         IF(STATUS.EQ.%LOC(CLI$_PRESENT).OR.
  365.      &     STATUS.EQ.%LOC(CLI$_DEFAULTED)) THEN
  366.           STATUS = CLI$GET_VALUE('STMNTS.STEP',CIN)
  367.           IF(LOG)WRITE(6,'(A,A)')
  368.      &    ' Floppy --> Renumber STATEMENTS, step by ',
  369.      &                     CIN(:LENOCC(CIN))
  370.           CIN2 = CIN
  371.         ENDIF
  372.         WRITE(5,'(A,A)') 'STATEMENTS,NUMBER='//CINS(:LENOCC(CINS))//','
  373.      &                  ,CIN2(:LENOCC(CIN2))//';'
  374.       ENDIF
  375. C
  376.       WRITE(5,'(A)') 'END;'
  377. C
  378.   100 CONTINUE
  379. C
  380.       IF(LOG)WRITE(6,'(A)')
  381.      &' Floppy --> Finished parsing command string'
  382. C
  383. C
  384. C open LUNs for FLOPPY
  385. C
  386.       IF(NFILE.EQ.1) THEN
  387.       OPEN(11,FILE=CIFOR(:LENOCC(CIFOR)),READONLY,STATUS='OLD',ERR=999)
  388.       ENDIF
  389.       OPEN(99,FILE='FLOPTEMP.TXT',STATUS='SCRATCH',ERR=999)
  390.       IF(IOPIG.NE.0) THEN
  391.         REWIND(15)
  392.       ELSE
  393.         OPEN(15,FILE='FLOPTEMP.IGN',STATUS='SCRATCH',ERR=999)
  394.       ENDIF
  395.       IFOR = 0
  396.       IF(ITIDY.EQ.0) THEN
  397.         OPEN(14,FILE='FLOPTEMP.FOR',STATUS='SCRATCH',ERR=999)
  398.         IFOR = 1
  399.       ELSE
  400.         OPEN(14,FILE=CFORT(:LENOCC(CFORT)),STATUS='NEW',
  401.      &       CARRIAGECONTROL='LIST',ERR=999)
  402.         IFOR = 1
  403.       ENDIF
  404.       IOUT = 0
  405.       IF(CFLOP.NE.' ') THEN
  406.         OPEN(6,FILE=CFLOP(:LENOCC(CFLOP)),STATUS='NEW',ERR=999)
  407.         IOUT = 1
  408.       ENDIF
  409.       ITRE = 0
  410.       IF(CTREE.NE.' ') THEN
  411.         OPEN(50,FILE=CTREE(:LENOCC(CTREE)),STATUS='NEW',
  412.      &       FORM='UNFORMATTED',ERR=999)
  413.         ITRE = 1
  414.       ENDIF
  415.       REWIND(5)
  416. C
  417. C now call floppy
  418. C
  419.       CALL ALLPRO
  420. C
  421.       CLOSE(15)
  422.       IF(ITRE.EQ.1) CLOSE(50)
  423.       IF(IFOR.EQ.1) CLOSE(14)
  424.       CLOSE(11)
  425.       CLOSE(99)
  426.       IF(IOUT.EQ.1) CLOSE(6)
  427. C
  428. C LOG SUCCESSFUL COMPLETION
  429. C
  430.       CALL UMLOG('FLOPPY','Successful completion')
  431. C
  432.       GOTO 2000
  433. C
  434.   998 CONTINUE
  435.       WRITE(6,'(A)') ' Error parsing source Fortran name '
  436.       GOTO 1000
  437.   999 CONTINUE
  438.       WRITE(6,'(A)') ' Error opening a Floppy file '
  439.  1000 WRITE(6,500)
  440.   500 FORMAT( /,1X,'***********************************************',
  441.      &        /,1X,'*                 F L O P P Y                 *',
  442.      &        /,1X,'*                   ABORTED                   *',
  443.      &        /,1X,'*          in job preparation stage.          *',
  444.      &        /,1X,'***********************************************')
  445.  2000 CONTINUE
  446.       CALL SYS$EXIT(%VAL(1))      
  447.       END
  448.